home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 April / MacFormat CD Edition MF36 (April 1996).iso / Shareware City / HyperCard / XCMD Docs / CompileIt! Source Code / WaitKeyDown() < prev    next >
Encoding:
Text File  |  1995-08-20  |  229 b   |  9 lines  |  [TEXT/ttxt]
  1. Global MyEvent:R
  2. function WaitKeyDown
  3.   get GetNextEvent(KeyDownMask,MyEvent)
  4.   repeat until MyEvent.message ≠ NullEvent
  5.     get GetNextEvent(KeyDownMask,MyEvent)
  6.   end repeat
  7.   get MyEvent.CharType[5]
  8.   return it
  9. end WaitKeyDown